40 FOR S=0 TO 62:READ R:POKE 704+S,R:NEXT:REM SCHLEIFE ZUM EINLESEN VON FREDL
50 DATA 0,1,0,0,2,0,0,4,0,0
60 DATA 8,0,0,8,0,0,8,0,0,8
70 DATA 0,0,126,0,0,129,0,1,48,128
80 DATA 2,48,64,4,32,32,8,61,16,16
90 DATA 49,8,32,49,4,255,255,255,127,255
100 DATA 254,31,255,248,2,0,64,4,0,32,8,0,16
110 XREG=53248
120 YREG=53249
130 POKE 2040,11:REM SPRITE-ZEIGER
140 XP=60:POKE XREG,XP:POKE YREG,200:REM ANFANGSPOSITION
150 POKE 53269,1:REM FREDL >>AN<<
160 GOSUB 200:REM JOYSTICKABFRAGE
170 POKE XREG,XP
180 GOTO 160
190 REM *****JOYSTICKABFRAGE*****
200 JOY=PEEK(56321)
210 IF JOY=251 THEN 250
220 IF JOY=247 THEN 280
230 GOTO 200
240 REM ****JOYSTICK LINKS****
250 IFXP>2THENXP=XP-3
260 RETURN
270 REM *****JOYSTICK RECHTS****
280 IFXP<253THENXP=XP+3
290 RETURN